unit UFrameWarehouse;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes,
  Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, UFrameTopPanel,
  cxGraphics, cxControls, cxLookAndFeels, cxLookAndFeelPainters, cxStyles,
  dxSkinsCore, dxSkinOffice2007Blue, dxSkinscxPCPainter, cxCustomData, cxFilter,
  cxData, cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel,
  cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
  cxGridCustomView, cxGrid, MemDS, DBAccess, Uni;

type
  TFrameWarehouse = class(TFrame)
    FrameTopPanel1: TFrameTopPanel;
    QueryWarehouse: TUniQuery;
    dsWarehouse: TDataSource;
    GridWarehouse: TcxGrid;
    ViewUsers: TcxGridDBTableView;
    ColumnName: TcxGridDBColumn;
    LevelOrg: TcxGridLevel;
    ColumnOrg: TcxGridDBColumn;
  private
    procedure ShowWarehouse(id_locate: Integer = 0);
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

{$R *.dfm}

procedure TFrameWarehouse.ShowWarehouse(id_locate: Integer = 0);
begin
  with QueryWarehouse do
  begin
    Close;
    Open;
    Locate('id', id_locate, []);
  end;
end;

end.
